home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 December / 1984-12.d64 / cass index (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  45 lines
  1. 1 sys65517
  2. 2 ifpeek(781)=40thenmt$="":goto4
  3. 3 mt$=""
  4. 4 printmt$:print"[147]cassette index"
  5. 5 forq=1to2000:next
  6. 6 print"[147]cassette index[146]":print" to use this index:"
  7. 7 print"1 reset cassette"
  8. 8 print"   counter to 000"
  9. 9 print"2 find program and"
  10. 10 print"   location"
  11. 11 print"     (next page)"
  12. 12 print"3 advance tape using"
  13. 13 print"   f.fwd, to location"
  14. 14 print"   desired"
  15. 15 print"4 stop tape & follow"
  16. 16 print"   load[146] instructions":print" press a key to begin[146]"
  17. 17 getan$:ifan$=""goto17
  18. 18 print"[147]cassette index[146]":print"this cassette has"
  19. 19 print"the following programs"
  20. 20 print"at the approximate":print"counter reading shown:"
  21. 21 reada$:readb$
  22. 22 printa$tab(14)b$
  23. 23 forx=1to8
  24. 24 reada$
  25. 25 ifa$="-1"goto33
  26. 26 readb$
  27. 27 ifb$="-1"goto33
  28. 28 printtab(1)a$tab(16)b$
  29. 29 nextx
  30. 30 print:print"press key to continue"
  31. 31 getp$:ifp$=""goto31
  32. 32 ifa$<>"-1"goto18:ifb$<>"-1"goto18
  33. 33 print:print"[144]  ** end of index **"mt$
  34. 34 print"show again (y/n)";:inputan$
  35. 35 ifan$="y"thengoto38
  36. 36 ifan$<>"n"thengoto34
  37. 37 end
  38. 38 restore:goto18
  39. 39 dataprogram name,counter,dummy name01,000,dummy name02,000,dummy name03,000
  40. 40 datadummy name04,000,dummy name05,000,dummy name06,000,dummy name07,000
  41. 41 datadummy name08,000,program name,counter,dummy name09,000,dummy name10,000
  42. 42 datadummy name11,000,dummy name12,000,dummy name13,000,dummy name14,000
  43. 43 datadummy name15,000,dummy name16,000,program name,counter,dummy name17,000
  44. 44 datadummy name18,000,dummy name19,000,dummy name20,000,dummy name21,000,-1
  45.